Chip 2001 June/CHIP Haziran 2001.iso/prog/yerli/07/_SETUP.1/Emlak 2000.exe/0/RCDATA/TFORM20/TFORM20.txt

Text File | 1999-02-04 | 17KB | 853 lines

object Form20: TForm20
  Left = 232
  Top = 135
  AutoSize = True
  BorderStyle = bsNone
  Caption = 'Sat�l�k Emlak Gir�i'
  ClientHeight = 480
  ClientWidth = 640
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 640
    Height = 480
    AutoSize = True
    Picture.Data = {<image000.jpg>}
    OnMouseDown = Image1MouseDown
  end
  object Label1: TLabel
    Left = 40
    Top = 104
    Width = 24
    Height = 13
    Caption = 'Semt'
    Transparent = True
  end
  object Label3: TLabel
    Left = 240
    Top = 248
    Width = 38
    Height = 13
    Caption = 'Asans�r'
    Transparent = True
  end
  object Label4: TLabel
    Left = 40
    Top = 176
    Width = 37
    Height = 13
    Caption = 'Hidrofor'
    Transparent = True
  end
  object Label5: TLabel
    Left = 40
    Top = 200
    Width = 40
    Height = 13
    Caption = 'Zeminler'
    Transparent = True
  end
  object Label6: TLabel
    Left = 40
    Top = 224
    Width = 32
    Height = 13
    Caption = 'Kap�lar'
    Transparent = True
  end
  object Label7: TLabel
    Left = 40
    Top = 248
    Width = 33
    Height = 13
    Caption = 'Mutfak'
    Transparent = True
  end
  object Label8: TLabel
    Left = 40
    Top = 272
    Width = 16
    Height = 13
    Caption = 'Kat'
    Transparent = True
  end
  object Label9: TLabel
    Left = 40
    Top = 296
    Width = 27
    Height = 13
    Caption = 'D�viz'
    Transparent = True
  end
  object Label10: TLabel
    Left = 240
    Top = 296
    Width = 20
    Height = 13
    Caption = 'Oda'
    Transparent = True
  end
  object Label11: TLabel
    Left = 40
    Top = 328
    Width = 27
    Height = 13
    Caption = 'Adres'
    Transparent = True
  end
  object Label12: TLabel
    Left = 40
    Top = 352
    Width = 43
    Height = 13
    Caption = 'A��klama'
    Transparent = True
  end
  object Label13: TLabel
    Left = 240
    Top = 104
    Width = 22
    Height = 13
    Caption = 'Fiyat'
    Transparent = True
  end
  object Label14: TLabel
    Left = 240
    Top = 128
    Width = 46
    Height = 13
    Caption = 'Is� Sistemi'
    Transparent = True
  end
  object Label15: TLabel
    Left = 240
    Top = 152
    Width = 38
    Height = 13
    Caption = 'Otopark'
    Transparent = True
  end
  object Label16: TLabel
    Left = 240
    Top = 176
    Width = 40
    Height = 13
    Caption = 'Duvarlar'
    Transparent = True
  end
  object Image2: TImage
    Left = 40
    Top = 148
    Width = 13
    Height = 15
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Transparent = True
  end
  object Label17: TLabel
    Left = 240
    Top = 200
    Width = 31
    Height = 13
    Caption = 'Tavan'
    Transparent = True
  end
  object Label18: TLabel
    Left = 240
    Top = 224
    Width = 30
    Height = 13
    Caption = 'Banyo'
    Transparent = True
  end
  object Label19: TLabel
    Left = 40
    Top = 128
    Width = 29
    Height = 13
    Caption = 'Emlak'
    Transparent = True
  end
  object Label20: TLabel
    Left = 240
    Top = 272
    Width = 52
    Height = 13
    Caption = 'Kay�t Tarihi'
    Transparent = True
  end
  object Label21: TLabel
    Left = 440
    Top = 104
    Width = 18
    Height = 13
    Caption = '�sim'
    Transparent = True
  end
  object Label22: TLabel
    Left = 440
    Top = 128
    Width = 15
    Height = 13
    Caption = 'Tel'
    Transparent = True
  end
  object Label23: TLabel
    Left = 440
    Top = 152
    Width = 26
    Height = 13
    Caption = '�� Tel'
    Transparent = True
  end
  object Label24: TLabel
    Left = 440
    Top = 176
    Width = 37
    Height = 13
    Caption = 'Cep Tel'
    Transparent = True
  end
  object Label25: TLabel
    Left = 440
    Top = 200
    Width = 37
    Height = 13
    Caption = 'Anahtar'
    Transparent = True
  end
  object Label26: TLabel
    Left = 440
    Top = 224
    Width = 31
    Height = 13
    Caption = 'Durum'
    Transparent = True
  end
  object Image3: TImage
    Left = 72
    Top = 408
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image002.jpg>}
    Visible = False
  end
  object Image6: TImage
    Left = 248
    Top = 408
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image003.jpg>}
    Visible = False
  end
  object Image7: TImage
    Left = 416
    Top = 408
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image004.jpg>}
    Visible = False
  end
  object Label2: TLabel
    Left = 80
    Top = 416
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = 'Liste'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnMouseDown = Label2MouseDown
    OnMouseUp = Label2MouseUp
  end
  object Label27: TLabel
    Left = 256
    Top = 416
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = 'Yazd�r'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnMouseDown = Label27MouseDown
    OnMouseUp = Label27MouseUp
  end
  object Label28: TLabel
    Left = 424
    Top = 416
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = '��k��'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnMouseDown = Label28MouseDown
    OnMouseUp = Label28MouseUp
  end
  object Image4: TImage
    Left = 544
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image005.jpg>}
    OnMouseDown = Image4MouseDown
    OnMouseUp = Image4MouseUp
  end
  object Image5: TImage
    Left = 576
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image006.jpg>}
    OnMouseDown = Image5MouseDown
    OnMouseUp = Image5MouseUp
  end
  object Image8: TImage
    Left = 544
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image007.jpg>}
    Visible = False
  end
  object Image9: TImage
    Left = 576
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image008.jpg>}
    Visible = False
  end
  object Image11: TImage
    Left = 448
    Top = 277
    Width = 149
    Height = 34
    AutoSize = True
    Picture.Data = {<image009.jpg>}
  end
  object Image12: TImage
    Left = 448
    Top = 275
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image010.jpg>}
    Visible = False
  end
  object Label29: TLabel
    Left = 456
    Top = 288
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = 'Emlak Sahibini G�ster'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnMouseDown = Label29MouseDown
    OnMouseUp = Label29MouseUp
  end
  object DBEdit1: TDBEdit
    Left = 96
    Top = 144
    Width = 121
    Height = 21
    DataField = 'Metre2'
    DataSource = DataSource1
    TabOrder = 2
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit4: TDBEdit
    Left = 96
    Top = 192
    Width = 121
    Height = 21
    DataField = 'Zeminler'
    DataSource = DataSource1
    TabOrder = 4
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit5: TDBEdit
    Left = 96
    Top = 216
    Width = 121
    Height = 21
    DataField = 'Kapilar'
    DataSource = DataSource1
    TabOrder = 5
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit6: TDBEdit
    Left = 96
    Top = 240
    Width = 121
    Height = 21
    DataField = 'Mutfak'
    DataSource = DataSource1
    TabOrder = 6
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit7: TDBEdit
    Left = 96
    Top = 264
    Width = 121
    Height = 21
    DataField = 'Kat'
    DataSource = DataSource1
    TabOrder = 7
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 72
    Width = 570
    Height = 18
    DataSource = DataSource1
    Hints.Strings = (
      '�lk Kay�t'
      '�nceki Kay�t'
      'Sonraki Kay�t'
      'Son Kay�t'
      'Kay�t Ekle'
      'Kay�t Sil'
      'De�i�iklik'
      'Onayla'
      'De�i�iklik �ptal'
      'Yenile')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 26
  end
  object DBEdit8: TDBEdit
    Left = 296
    Top = 96
    Width = 121
    Height = 21
    DataField = 'Fiyati'
    DataSource = DataSource1
    TabOrder = 9
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBMemo1: TDBMemo
    Left = 96
    Top = 352
    Width = 513
    Height = 41
    DataField = 'Notlar'
    DataSource = DataSource1
    TabOrder = 25
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit11: TDBEdit
    Left = 96
    Top = 288
    Width = 121
    Height = 21
    DataField = 'D�viz'
    DataSource = DataSource1
    TabOrder = 8
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit12: TDBEdit
    Left = 296
    Top = 288
    Width = 121
    Height = 21
    DataField = 'Oda'
    DataSource = DataSource1
    TabOrder = 17
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit14: TDBEdit
    Left = 296
    Top = 168
    Width = 121
    Height = 21
    DataField = 'Duvarlar'
    DataSource = DataSource1
    TabOrder = 12
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit15: TDBEdit
    Left = 296
    Top = 192
    Width = 121
    Height = 21
    DataField = 'Tavanlar'
    DataSource = DataSource1
    TabOrder = 13
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit16: TDBEdit
    Left = 296
    Top = 216
    Width = 121
    Height = 21
    DataField = 'Banyo'
    DataSource = DataSource1
    TabOrder = 14
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit18: TDBEdit
    Left = 296
    Top = 264
    Width = 121
    Height = 21
    DataField = 'Satis'
    DataSource = DataSource1
    TabOrder = 16
    OnEnter = DBEdit18Enter
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit19: TDBEdit
    Left = 488
    Top = 96
    Width = 121
    Height = 21
    DataField = 'Isim'
    DataSource = DataSource1
    TabOrder = 18
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit20: TDBEdit
    Left = 488
    Top = 120
    Width = 121
    Height = 21
    DataField = 'Telefon'
    DataSource = DataSource1
    MaxLength = 15
    TabOrder = 19
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit21: TDBEdit
    Left = 488
    Top = 144
    Width = 121
    Height = 21
    DataField = 'Istel'
    DataSource = DataSource1
    MaxLength = 15
    TabOrder = 20
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit22: TDBEdit
    Left = 488
    Top = 168
    Width = 121
    Height = 21
    DataField = 'Ceptel'
    DataSource = DataSource1
    MaxLength = 15
    TabOrder = 21
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit23: TDBEdit
    Left = 488
    Top = 192
    Width = 121
    Height = 21
    DataField = 'Anahtar'
    DataSource = DataSource1
    TabOrder = 22
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBMemo2: TDBMemo
    Left = 96
    Top = 320
    Width = 513
    Height = 25
    DataField = 'Adres'
    DataSource = DataSource1
    TabOrder = 24
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 96
    Top = 96
    Width = 121
    Height = 21
    DataField = 'Semtadi'
    DataSource = DataSource1
    KeyField = 'Semtler'
    ListField = 'Semtler'
    ListSource = DataSource2
    TabOrder = 0
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 96
    Top = 120
    Width = 121
    Height = 21
    DataField = 'Emlak'
    DataSource = DataSource1
    KeyField = 'EmlakTipi'
    ListField = 'EmlakTipi'
    ListSource = DataSource3
    TabOrder = 1
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox1: TDBComboBox
    Left = 488
    Top = 216
    Width = 121
    Height = 21
    DataField = 'Durum'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Sat�ld�'
      'Sat�lmad�')
    TabOrder = 23
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox2: TDBComboBox
    Left = 96
    Top = 168
    Width = 121
    Height = 21
    DataField = 'Hidrofor'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Var'
      'Yok')
    TabOrder = 3
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox3: TDBComboBox
    Left = 296
    Top = 144
    Width = 121
    Height = 21
    DataField = 'Otopark'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Var'
      'Yok')
    TabOrder = 11
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox4: TDBComboBox
    Left = 296
    Top = 240
    Width = 121
    Height = 21
    DataField = 'Asansor'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Var'
      'Yok')
    TabOrder = 15
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object Panel1: TPanel
    Left = 440
    Top = 96
    Width = 170
    Height = 170
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 27
    object Image10: TImage
      Left = 0
      Top = 0
      Width = 170
      Height = 170
      AutoSize = True
      Picture.Data = {<image011.jpg>}
    end
  end
  object DBComboBox5: TDBComboBox
    Left = 296
    Top = 120
    Width = 121
    Height = 21
    DataField = 'Isisistemi'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Sobal�'
      'Do�al Gaz Kaloriferli'
      'Do�al Gaz Sobal�'
      'Kalofiferli')
    TabOrder = 10
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 56
    Top = 8
  end
  object Table1: TTable
    Active = True
    AfterPost = Table1AfterPost
    TableName = 'segiris'
    Left = 88
    Top = 16
    object Table1No: TAutoIncField
      FieldName = 'No'
      ReadOnly = True
    end
    object Table1Metre2: TFloatField
      FieldName = 'Metre2'
    end
    object Table1Asansor: TStringField
      FieldName = 'Asansor'
      Size = 10
    end
    object Table1Hidrofor: TStringField
      FieldName = 'Hidrofor'
      Size = 10
    end
    object Table1Zeminler: TStringField
      FieldName = 'Zeminler'
      Size = 15
    end
    object Table1Kapilar: TStringField
      FieldName = 'Kapilar'
      Size = 15
    end
    object Table1Mutfak: TStringField
      FieldName = 'Mutfak'
      Size = 15
    end
    object Table1Kat: TStringField
      FieldName = 'Kat'
      Size = 6
    end
    object Table1Notlar: TMemoField
      FieldName = 'Notlar'
      BlobType = ftMemo
      Size = 100
    end
    object Table1Dviz: TStringField
      FieldName = 'D�viz'
      Size = 15
    end
    object Table1Adres: TMemoField
      FieldName = 'Adres'
      BlobType = ftMemo
      Size = 50
    end
    object Table1Isim: TStringField
      FieldName = 'Isim'
    end
    object Table1Istel: TStringField
      FieldName = 'Istel'
      EditMask = '!\(999\) 999-99-99;1;_'
    end
    object Table1Anahtar: TStringField
      FieldName = 'Anahtar'
    end
    object Table1Fiyati: TCurrencyField
      FieldName = 'Fiyati'
    end
    object Table1Oda: TStringField
      FieldName = 'Oda'
    end
    object Table1Isisistemi: TStringField
      FieldName = 'Isisistemi'
    end
    object Table1Otopark: TStringField
      FieldName = 'Otopark'
    end
    object Table1Duvarlar: TStringField
      FieldName = 'Duvarlar'
    end
    object Table1Tavanlar: TStringField
      FieldName = 'Tavanlar'
    end
    object Table1Banyo: TStringField
      FieldName = 'Banyo'
    end
    object Table1Emlak: TStringField
      FieldName = 'Emlak'
    end
    object Table1Satis: TStringField
      FieldName = 'Satis'
      Size = 15
    end
    object Table1Telefon: TStringField
      FieldName = 'Telefon'
      EditMask = '!\(999\) 999-99-99;1;_'
    end
    object Table1Ceptel: TStringField
      FieldName = 'Ceptel'
      EditMask = '!\(999\) 999-99-99;1;_'
    end
    object Table1Durum: TStringField
      FieldName = 'Durum'
    end
    object Table1Semtadi: TStringField
      FieldName = 'Semtadi'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 208
    Top = 8
  end
  object Table2: TTable
    Active = True
    TableName = 'semtler.db'
    Left = 272
    Top = 8
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 352
    Top = 16
  end
  object Table3: TTable
    Active = True
    TableName = 'emlaktanimlama.db'
    Left = 400
    Top = 24
  end
end